function clearplus(varargin)

% _________________________________________________________________________
% Call:
% clearplus(varargin)
%
% Input:
%   Needed:
%   - varargin : List of variables to remove.
%
%
%   Example:
%   % --
%   clearplus x y z
%
%
% ----------------------------------------------------------------------
% Created: G. Charria (04/2010)
% v0 : Original code
% ----------------------------------------------------------------------
% _________________________________________________________________________

% __ Check inputs fields
if nargin ==0
    error('clearplus.m : Wrong number of input arguments')
end

% Find variables in caller workspace
wh = evalin('caller','who');

% Remove variables in the list
del = varargin;

% Empty the variable
for ivar=1:length(del)
    evalin('base',[char(del{ivar}),'=[];'])
end

% Construct the clearing command string
str=sprintf('%s ',del{:});

% Clear
evalin('base',['clear ' str])



